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MODULE LIBSGET_INPUT ( ! Library $GET on device SYSSINPUT 


LIBSGET_ INPUT 


g 1 60 : 
: § 008 | IDENT = '1-015° ! File: LIBGETINP.B32 Edit: STAN1015 ; 
° a 5 de ; 
; $ 096 : BEGIN : 
: 8 43 1 PITITITILILILILI LLL LILI LLL LLL LiL liTiiiiiiiiiiiiiiii iit. : 
3 1 Ie * $ 
: 10 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ’ 3 
; 11 0011 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * . 
: \¢ Bot6 } 7 ALL RIGHTS RESERVED. . : 
: 14 0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * : 
3 16 Bo18 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * $ 
: 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
3 18 Bats 1 !® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ‘ 
: i id : « TRANSFERRED. * : 
4 H ® ° 
: $3 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 3 
4 ¢ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
3 $7 8 ? : i: CORPORATION. . : 
; $2 0025 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; $$ 88 g : es SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; ‘ 
> 28 0028 1 is ® : 
3 $3 +5 34 : a alaataataaaiaaratiaanhaaataaaint atainalntal atiac aalataataianialal : 
BR Bde 
: 33 0038 } FACILITY: General Uitlity Library : 
: 35 0035 | ABSTRACT: . ; 
; * sit f4 : Output a string as a record on device SYSSINPUT. : 
; 33 ith ! ; ENVIRONMENT: User Mode - AST re-entrant : 
; 7 Bots : AUTHOR: Thomas N. Hastings, CREATION DATE: 8-Aug-1977 ‘ 
: “§ Does ' MODIFIED BY: : 
; 65 Qoes 1/ Thomas N. Hastings, 8-Aug-1977: VERSION 0 : 
; r¢ § 1! - original : 
; «4 0047 1! = change to SYSSINPUT 3 
: 6448 0048 1! - change to do OPEN at first time 3 
; «649 0049 1! - change to set up RAB for GET_STRING 3 
s $0 050 1! - fix comment 3 
$ 33 aie = Change to STARLET Library. DGP g0rAor=78 3 
; § 26 1} = Remove EXTERNAL RMS$_RTB. TNH 24-Apr-78 3 
rf. 3 55 1! - Change REQUIRE files for VAX system build. DGP 28-Apr-78 3 
: * 54 1! - Change STARLET to RTLSTARLE to avoid conflicts. DGP 1-May-78 3 
.-. a 055 1! - Add LIBSGET_COMMAND entry po nt. TNH 17-June-78 3 
3 2$ 2$ 1! For now, just copy entire routine. g 
: 5 57 1! - Make wait if record stream active so AST re-entrant. $ 
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aipe allocate atine. Fie 28-Ju MA ee TNH 29-July-78 
= Make common routine. 
= Use LIBSSOPY.R-DX, not DD. Hf Aug 
ad a eT te fame to e fece Tine. “B38, ad. change the name of 


1 = Update os z. nuaber and copyr ant not se JBS 16-NOV-78 
- Boclere NULLPARAMETER for gee BLISS conp Ler. JBS 22-NOV-78 
= Change REQUIRE file names from FOR... to OTS... JBS OF DEC“78 


Put in extra RETURN to vend INFO seseaee "about a pul} 
expression in a value= reguice ged g congszt: JBS 22-NOV-78 
-004 - Change LIB$S t *t R$. 
-005 = Change rr to's STRSCOPY. JBS “Mee UL -4979 
-006 = Optional ‘i return the number of characters in the record, so 
casters sf th Ropgxed strings can ignore trailing blanks. 
1-007 - ries eate 808 to not return are than the number of bytes 
peaueesets one r return $3, word. This is similar to system 
services. -SEP-1 
1-008 - Use Lissscopy sa DX to copy string since STRSCOPY_R signals 
errors. 
Do string copy even if $GET fails because the string may have 
been returned. When waitin for record stream 989 become 
snactive. do $GET's, not SPUT's! SBL 22-Jan-19 
1-009 - ~y ance to reseen es? addi tional “classes of —— descriptors 
oy invokine LIBSANALYZE_SDESC_R3 to extract i cengse h and address 
Ist data byte from descriptor. RKR 
1-010 - forrest bugs caused by fact that Lita vee YSDESC “R3 returns 
a word Length rather than a byte or longword. SBL~4-Sep-1981 
1-011 = Correct comment regarding statuses returned. ’ 
d special-case code for oavord Coser Seters that ‘'read’’ Like 
fixed string DERE RS to_ avoid to 
LIBSANALYZE SDE RKR 7- ai 
1-012 - gt ot sb's from LIBSANALYZE SDESC_R 
LIBSANALY? E SpEsc. OR. Use LIBSSCOPY_R Rone” to do copying. 


1-013 - Nod support for class SO string descri sore, DG 3-0ct-1983. 

1-014 = Change class SO string descriptors to SB. DG 27-Feb-1984 

1-015 - If called with a dynamic string descriptor already containing. 
-JUul> e 
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more than 256 bytes of buffer, use that buffer. S$ 
i <BLF /PAGE> 
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; SWITCHES 


SWITCHES ADDRESSING MODE 


LINKAGES 


EQUATED SYMBOLS: 


10 0109 REQUIRE "RTLIN:STRLNK'; 
i 95 1! 
1 96 1 | TABLE OF CONTENTS: 
14 97 1! 
15 38 
1g FORWARD ROUTINE 
1 00 LIBSGET_INPUT, 
18 01 LIBSGET~ COMMAND, 
19 0¢ GET; 
0 0 
1 0% 1! 
é Q5 1 | INCLUDE FILES: 
i 07 
: a REQUIRE 'RTLIN:RTLPSECT®; 
8 405 
9 
407 1 | MACROS: 

1 08 1! 
é 409 1} 

; 


w 
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QV lw —OVOnOulun-oo 
x 
WIN AIR POPOPOPPPUPONIY 2 = 


LITERAL 
K_DYN_STR_MAX = 256; 


PSECT DECLARATIONS: 
DECLARE _PSECTS (LIB); 
OWN STORAGE: 


SELLE 


nse SYS_INPUT_ I 
SYS COMMAND 


SI: WO 


EXTERNAL REFERENCES: 


ee ee ee ee ee ee LS) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: LIBRARY ‘RTLSTARLE'; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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EXTERNAL ROUTINE 


SI_: WORD INI 
I RD IN 
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1 
1 LIBRTL.SRCILIBG (2) 


(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! Linkage for LIBSANALYZE_SDESC_R2 


Get string from device SYSSINPUT 
Get string from device SYSSCOMMAND 
Common rout. to do main part of above. 


! Define DECLARE_PSECTS macro 
STARLET Library for macros and symbols 


! Max. size of dynamic string which can 
' be handled before truncation 


declare PSECTs for LIB$ facility 
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: 157 1 LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, Extract length 
aS 3 1 ' and address or 
Sh 1 ! ir data be 

; 160 1 ! from descriptor 
3 19 ; : LIBSSCOPY_R_DX6 : STRING_JSB ; ! Copy to any class string 

3 188 40 1 ExT ™ 

3: «164 41 1 LIBS_FATERRLIB, ! LIB == FATAL ERROR IN LIBRARY 

; 127 rk : LIBS_INPSTRTRU; ! LIB == INPUT STRING TRUNCATED 
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GLOBAL ROUTINE LIBSGET_INPUT ( 


ieoseo-t9ue 1:00:46 yARSIT 8 


! Input string from SYSSINPUT 


GET_STRING ! Adr. of string descriptor 

PROMPT_STRING, Ade f optional PROMPT_STRING string 
! descriptor 

OUTLEN : Optional number of bytes returned 


) = ! Value returned is RMS completion code 


ae 
FUNCTIONAL DESCRIPTION: 


A Line from the current fongrott ing ineut device, SYSSINPUT, is 
obtained. If an optional PROMPT_SIRING is given. output will 
appear on the device SINPUT, if the device is a terminal; 
otherwise the PROMPT STRING is ignored. No CRLF is 

appended to the record obtained from RMS. On first call, 
device SYSSINPUT is opened. 

Thus the user can assign the logical name SYSSINPUT to any file 
name in order to redirect 1/0. 


CALLING SEQUENCE: 


RET_STATUS.wilc.v = LIBSGET_INPUT (get_string.wt.dx 
Pi pfonpt.sirin ort.dx 
,outlen.ww.rJJ) 


INPUT PARAMETERS: 


prompt_string is the address of a string descriptor specifying 
an optional prompt which is output to the 
controlling input device. Where other conventions 
are not established, it is recommended for 
Sone tatenty to make prompts be an English word 
ren ewe y a colon(:), one (1) space, and no 


OUTPUT PARAMETERS: 


get_string is the address of string descriptor of any type 
of descriptor supported by LIBSANALYZE.SDESt. 
outlen Is the number of characters placed in the string. 
IMPLICIT INPUTS: 
SYS_INPUT_ISI Set on first call to RMS internal stream 


identifier. 
IMPLICIT OUTPUTS: 


SYS_INPUT_ISI Set to RMS internal stream identifier 


on first call when SYSSINPUT is OPENed. 


COMPLETION STATUS: 


see 
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LIBSGET INPUT 
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wn 
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RETURN DO_GET (.GET_STR 


UPLIT ("SYSSINPUT")): 


OOODNOVNLS WN (OC OONOULS WO 


WRROPOROPONONUNUNU NR 3 oe 


So 


0000 
0000 


00 00 00 54 55 50 4E 49 24 53 59 53 


0000 

EF AF 9F 

09 OD 

00000000" EF 9F 

3 8 1 
1F 

oc AC DS 


71986 92:98:38 — HMfente®SReSci8ct tine 68251 


NG  Strin 
(IF NULLEARKAETER (2) THEN O ELSE -PROMPT_STR 
(IF NULLPARAMETER (3) THEN 0 ELSE .OUTLEN), 


to retu 
ING), “Optional 
prompt 


0 rhe 
a umb 


umber of 
tes returned 


YS_INPUT_ISI, t internal stream id for | bytes re 


! Length of SYSSINPUT stirn 


! name to open first time 


00000 P.AAA: 


-TITLE 
- IDENT 


-PSECT 


00000 SYS_INPUT Is1: 
00002 SYS_COMMAND_ISI: 


«WORD 
-PSECT 
-ASCII 


« 2 
Sep 
Sep- 
} SSS_NORMAL if success. 
} LIBS_INPSTRTRU if fhe gp Rig, Bi. is A aaa than the caller's 
ri 
5 ii LIBS_INVSTRDES i the ‘input’ d acti tor's class is not a 
7 i ognized string class. 
; RMS$_xyz if any RMS error. 
! SIDE EFFECTS: 
1 i Opens file SYSSINPUT on first call and remembers ISI for 
; { subsequent calls. 
1 
3 BEGIN 
5 BUILTIN 
2 NULLPARAMETER; 
5 
5 
; 
5 
5 
5 
5 
5 
5 


END; ! End of LIBSGET_INPUT routine 


LIBSGET_INPUT 
\1-015\ 


-LIBSDATA,NOEXE, PIC,2 


0 

-LIBSCODE,NOWRT, SHR, PIC,2 
\SYSSINPUT\<0><0><0> 
LIBSANALYZE ~$06S¢ R2 
LIBSSCOPY_R 

L1B$ SFATERRCIB, LIBS_INPSTRTRU 


LIBSGET_INPUT, Save nothing 
- AAA 

SYS_INPUT_ISI 

(APT, "3 ™ 


12¢AP) 


8 
1 TLINPUT 1b-se 1984 01:00:4 AX=11 Bliss-32 V4.0-74 Page 7 
cette 1 730071382 73:93:88 LIBRTL.SRC isc TiNe.B92;1 : (3) 
4 1 1 BNEQ ; 
4 é 7 1$ CLRL =(SP) ; 
0 1 19 BRB ; 
oc AC 0D 18 $ PUSHL OUTLEN : 
02 gf 1 1 CMPB (AP), #2 : 0521 
F BLSSU 4 : 
08 af ? TSTL (AP) : 
! BNEQ $ ; 
4$: CLRL =(SP) ; 
0 1 A BRB 6$ ; 
8 AC 00 C 5$: PUSHL PROMPT STRING : 
4 ac 0D F 6$: PUSHL  GET_STRING : 0520 
0000v CF 06 FB $ CALLS #6, DO_GET : 
04 000 RET ; 0530 


; Routine Size: 56 bytes, Routine Base: _LIBSCODE + 000C 


ry 
1 TLINPUT -Sep- :00: ° o .0- ee| 
htt hom 1b-sep-1944 93:98 eg Hen nea tect tine 64251 reer 3 
GLOBAL ROUTINE LIBSGET_COMMAND ( ! Input string from SYSSCOMMAND 


GET_STRING > of string descriptor 


Thus — "user can assign the logical name g remy to any 
n order to redirect I/0. Note: General 


' 
PROMPT_STRING, i of op optional PROMPT _STRING 
60 5 i vel 
2 OUTLEN i Number mn " chors returned 
eg ) = ! Value returned is RMS completion 
re ! code 
$8 H lee 
44 ' FUNCTIONAL DESCRIPTION: 
+] A Line from the sperrent tfonal prone input device, SYSSCOMMAND, 
0 5 ts ebtelned. an opt onal BRON I STRING is given, gutput 
71 5 will ap ear on the device ausec AND, if the device is 
if 5 terminal otherwise the PROM OT RING ts ignored. No CRLF is 
7 5 ppended to ig. the record soteined” bee RMS. On first call, 
74 ; dev OMMAND is opened. 
5 
5 
5 


should only be used when the user has indicated 
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i 

i 

i 

i 

i 

i 

' 

' 
79 5 4 that the terminal is explicitly wanted when in an indirect file. 
80 5 ‘ For example, SINQUIRE or /COMFIRM qualifier. 
81 5 : Normally, SYSSINPUT and SYSSCOMMAND are the same file 
a¢ 5 ! (interactive and batch). It is only when an interactive user 
8 5 : uses an indirect file that the devices are different 
84 5 ! (SYSSINPUT = indirect file, SYSSCOMMAND remaining associated 
+4 2 : with the terminal). 
4 3 CALLING SEQUENCE: 
89 5 ! RET_STATUS.wic.v = LIBSGET_COMMAND (get_string.wt.dx 
90 5 ‘ r. prompt String. ort.dx 
91 206 ! out len. ww.rJJ) 
3 56 } 
Bz 208 : INPUT PARAMETERS: 
95 570 ! prompt_string is the address of a string Goscrigter specifying 
96 571 : an optional prompt which is output to the 
7 572 : contretl ing input device. Where other conventions 
98 573 : are not established, it is recommended for 
99 574 : cone fetensy to make Prompts be an English word 
00 575 ! followed by a colon(:), one (1) space, and no 
01 278 ! CRLF. 
4 57 ' 
bz 278 : OUTPUT PARAMETERS: 
05 580 : get_string be the address o ote ine descriptor of any type 
5] 33 ! Cunspec! ited. tic cynee or var » M- 
0 5 ¢ ' specified by the. bScsB. CLASS tetas whic s to 
08 5 ! receive the ocr ing. TSee Chapter 2 -- Section on 
09 584 : passi ng strings as out 8 arameters id the 
10 : 5 : semantics of each string ty 
11 § : outlen Is the number of characters Preturned to the 
12 5 : caller. 


file 
LIBSGET. INTPUT should be used rather than LIBSGET_ COMMAND . 
LIBSGET- COMMAND 


8 
“ 1e-Sep-196¢ 12:98:58 ECTantLoSne Si tect Tinp 882; 1 
IMPLICIT INPUTS: 


SYS_COMMAND_ISI Set on first call to RMS internal stream 
identifier. 


IMPLICIT OUTPUTS: 
SYS_COMMAND_ISI Set to RMS internal stream identifier 
on first call when SYSSCOMMAND is OPENed. 
COMPLETION STATUS: 
SS$_NORMAL if success. 
LIBS_INPSTRTRU if input string is bigger than the caller's 


xed length string. 
LIBS_INVARG if the input descriptor's class is not a recognized 
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0607 string ype. 
Bens RMS$_xyz if any RMS error. 
bets SIDE EFFECTS: 
oei¢ Opens file SYSSCOMMAND on first call and remembers ISI for 
38 061 subsequent calls. 
39 0614 -- 
0 0615 
41 B98 BEGIN 
*§ 061 
4 0618 BUILTIN 
oy 9h NULLPARAME TER; 
346 O63 RETURN DO_GET (.GET_STRING, ! String to return 
7 06 § (IF NULLPARAMETER (2) THEN 0 ELSE .PROMPT_STRING),! Optional 
8 06 ' prompt 
49 0624 ' strin 
50 0625 (IF NULLPARAMETER (3) THEN 0 ELSE .OUTLEN), ! Optional 
51 0626 ' number of 
26 0627 ; ' chars returned 
5 0628 SYS_COMMAND_ISI, ! internal stream id for SYSSCOMMAND 
54 0629 » ! Length of SYSSCOMMAND seeing 
2? be , UPLIT (*SYSSCOMMAND')); ! name to open first time 
28 $632 END; ! End of LIBSGET_COMMAND routine 


00 44 4€ 41 40 4D 4F 43 24 53 59 53 00044 P.AAB: .ASCII \SYSSCOMMAND\<0> 


0000 000 ENTRY LIBSGET_COMMAND, Save nothing 
EF AF 9F 0000 USHAB P.AAB 
00000000° oP oF 6 6 PUSHAB sys COMMAND_ISI 
3 6c 91 0000 CMPB (APT, #3 
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56 bytes, Routine Base: 


3; Routine Size: 
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; 4 . ; ! ROUTINE DO_GET ( ! Input string from SYSSINPUT or SYSSCOMMAND 

: 361 635 1 GET_STRING ! Adr. of string descr igtor 

; ? ? $ ! PROMPT_STRING, yal y optional PROMPT_STRING string 
; ! descriptor 

; 364 3 8 1 OUTLEN : Number of chars returned to the caller 
3 «6? 0639 1 ET_Isi, ! Adr. of ISI word for this file 

: 366 0640 1 DEVICE_NAME_LEN, ! Length of device name string 

3 of bees ! DEVICE_NAME ! Adr. of device name string 

3; 36 o6e§ 1 ) = ! Value returned is RMS completion code 

3 sre Beee 1 

; 371 645 1 I++ 

; g pes ' FUNCTIONAL DESCRIPTION: 

: 374 0648 1! A Line from the current yontres hing ast device, DEVICE_NAME, 

. ive 0649 1! is obtained. If an optional PROMPT_STRING is iven, output 

3 sre 0650 1! will appear on the device, DEVICE NAME, if the device is a - 

3 sre 0651 1! terminal; otherwise the PROMPT_STRING is ignored. No CRLF is 

:; 378 bees 7% Sppengec to the record obtained from RMS. On first call, device 
: 379 06535 1! DEVICE_NAME is opened. 

; 380 0654 1! Thus the user can assign the logical name DEVICE_NAME to any 

; $B) 0655 1! file name in order to redirect I/0. 

; o¢ 0656 1! 

3; 0657 1 ! CALLING SEQUENCE: 

3; 384 0658 1! 

; 385 0659 1! ret_status.wlc.v = DO_GET ( ot string vt .aes 

; 386 0660 1! Eoranpt_s ring.rt.dxJ, 

3 et 0661 1! outlen.ww.rd, 

; 388 0662 1! et_isi.mw.r 

; 389 0663 1! evice_name_len.rl.v, 

: 390 0664 1! device_name.rt.r) 

; 391 0665 1! 

; 4 0666 1 ! INPUT PARAMETERS: 

; 39 0667 1! ‘ 

3; 394 0668 1! prompt_string is the address of a string descriptor specifying 
: 395 0669 1! an optional prompt which is output to the 

: 396 0670 1! controlling input device. Where other conventions 
; 2 0671 1°! are not established, it is recommended for 
; 398 0672 1! goer cetanty to make prompts be an English word 
; 399 0675 1! followed by a colon(:), one (1) space, and no 
; 400 0674 1! CRLF. 

3; 401 0675 1! 

; 40 676 1! ~ 

; 40 677 1! get_isi Set on first call to RMS internal stream 

: 404 678 1! identifier. 

; 405 0679 1! 

; 406 0680 1! device_name_len is the length of the device_name string in 

3 ret 36 1 ! bytes. 

: 409 0685 1! device_name is the adr. of the device name to be opened 

3; 410 684 1! the first time. 

3 6411 685 1! 

: tig 6 ! OUTPUT PARAMETERS: 

3: 414 oe 3 17 get_string is the address of the string descriptor 

3 6415 6 e. which is to receive the string. 
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outlen Is the number of characters 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 
SSS_NORMAL if success. 


LIBS_INPSTRTRU if input string is bigger t 
xed length string. 
LIBS_INVSTRDES if the input a meg po 
recognized string class. 
RMS$_xyz if any RMS error. 


SIDE EFFECTS: 


Opens file DEVICE_NAME on first call andr 
subsequent calls By storing ISI in get_isi 


BEGIN 


BUILTIN 
NULLPARAME TER; 


GET_STRING_LEN: WORD, 
GET~STRING-ADDR 
PROMPT_STRING_LEN: WORD, 
PROMPT_STRING_ADDR, 
GET_STATUS, 

RET~STATUS, 


FAB : SFAB_DECL, 
RAB : $RAB-DECL. i 
DYNAMIC_STR_BUF : VECTOR CK_DYN_STR_MAX, B 


MAP 
GET_STRING : REF BLOCK (8, BYTE) ' 
PROMPT_STRING : REF BLOCK C8, BYTE, i 
OUTLEN™: REF VECTOR C1, WORD, UNSIGNED), | 


GET_ISI : REF VECTOR C1, WORD, UNSIGNED); 


IF (.GET_ISI COJ EQL 0) 
THEN 


AX-11 Bliss-32 eh tle 
LIBRTL.SRCIJLIBGETINP.B352;1 


returned to the caller 


han the caller's 
class is not a 


emembers ISI for 


Length of buffer 

addr of buffer 

Length of prompt 
string 

addr of proses string 
status from $GET 
status from other 
calls 

FAB 


RAB 

YTE, UNSIGNED]; 
temporary buffer for 
dynamic string case. 


String descriptor 
String descriptor 
Number of characters 
returned to the user 
' Place to remember 
' ISI in static 

! storage 
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| Seca iessetage QU:GB:46 YMG Shiner weitere a 


ne rth mT t call, initialize FAB 
' First call, initialize 
crs is oe 
279 P 0751 SFAB_INIT (FAB = FAB, 
$28 P 07 § FAC = GET, ' file acce GET 
47 P 07 FNA = .DEVICE_NAME, ! file Seana s Dev ICE_NAME 
ret P 0754 ! (SYSSIN PUT or SYSSCOMMAND) 
481 755 FNS = .DEVICE_NAME_LEN); ! tite name size: 
ret f § ! 9 or 11 bytes 
4 7 8 '¢ 
? 5 4 } Open DEVICE_NAME, remember RMS internal stream identifier 
487 761 RET_STATUS = SOPEN (FAB = FAB); ! fab addr : FAB 
489 18 '+ 
rhs ree If the OPEN fails, return the RMS status code. 
49 7 ; 
ret rey IF ( NOT .RET_STATUS) THEN RETURN (.RET_STATUS); 
495 769 SRAB_INIT (FAB = FAB, RAB = RAB) 
496 770 RET_STATUS = SCONNECT (RAB = RABS; ! connect RAB to the file 
49 771 
498 14 
499 


IF ( NOT .RET_STATUS) THEN RETURN (.RET_STATUS); 


GET_ISI C0] = se wits Isl); ! remember ISI 
END of first cail 


~ 
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ELSE 


SSLESFANLS 


'¢ 
i file already open, just initialize RAB 
i. including soagion stream identifier returned frum first SOPEN 


ww www lololololololololo! 


SNS 


SSAA 


BEGIN file nabs Ka eo” 
$RAB ye bw Bish = at 
RAB CRAB ,G61 
END; le yy open 


termine which buffer ares to read into, and how long it is. 
e LIBSANALY a — Re to get length and address of ist data byte 
 eoller® s butte 
the descriptor "5 
BSANALYZE_SDESC_R 


ir -GET_STRING Cescse. CLASS) GTRU DSCSK_CLASS_D 


THEN ! Use generalized extraction ~ 
1 BEGIN 
§ LOCAL _RET_STA 

RET_ 


5 invalid, return status returned by 
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STATUS = UYBSANALYZE _SDESC_R2 ( .GET_STRING ; 


Similarly, if the CONNECT fails, return the RMS status code. 


bs 


F 9 
To he cies 1350-1382 93:98:88 = Heat SaeSiisce tine. 882; Page i 
GET_STRING_LEN 
GET“STRING-ADDR ) ; 


i sRET STATUS THEN RETURN (.RET_STATUS) ; 


1 


! Fetch Length and address directly 


1+ 

! If GET_STRING is dynamic, we arrange to read onto a area of the 
! stack eines the dynamic string may not be allocated. 

! However, if the dynamic string happens to be Bh) *getes and if it 
' contains more space than we would have used ( bytes), then 

: we should use the space that the caller has provided. 


IF .GET STRING CDSC$B_CLASS) EQL_ DSCSK_CLASS_D 
AND |-GET_STRING_LEN LSSU K_DYN_STR_MAX 


B 
G 
G 
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“STRING_ADDR = BYNAMIC_STR_6UF; 


EGIN 
HY STRING_LEN = K_DYN STR_MAX; 
ND 


PANAMANIAN ES BEEP LPL 
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‘+ 
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ee 


f GET_STRING was verying the Length we want is MAXSTRLEN, not 
URLEN as returned by LI $ANALYZE_ DESC_R2. 


Oi siemaaes COSC$B_CLASS] EQL DSCSK_CLASS_VS 


ye 


BEGIN 
oP TnI Le = .GET_STRING CDOSCSW_MAXSTRLEN) ; 
'¢ : 
: Set up RAB buffer address and length fields based on our computations. 


RAB CRABSL UBF] = .GET_STRING_ ADDR: 
RAB CRABSW-USZ) = .GET~STRING_LEN; 


SIS 
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'¢ 

! Setup prompt buffer address and size in RAB if PROMPT_STRING string 

; present. f Sot string descriptor invalid, return status returned 
y LIBSANALYZE_SDESC_R2. 
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i 
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IF ( NOT NULLPARAMETER (2)) 
THEN 


BEGIN 
IF .PROMPT_STRING COSC$B_CLASS] GTRU DSCS$K_CLASS_D 
THEN ! Use generalized extraction 


BEGIN 
LOCAL _RET_STATUS ; 
RET_STATUS = LIBSANALYZE_SDESC_R2 ( .PROMPT_STRING ; 
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9 
1 T_INPUT 1b-se -1984 01:00: AX-11 Bliss-32 V4.0-74 1B 
418 1 ~3007 138% 93:98:38 ANARTLe SEM 1oGe TINP B82; 1 -0 
7 PROMPT _STRING_LEN, ; 
& CRABSL POF! );!addr. ; 
i »RET_ STATUS THEN RETURN (.RET_STATUS) ; : 
91 g ; 
3 ELSE ee ! Fetch Length and address directly : 
9 68 PROMPT STRING LEN = .PROMPT STRING [DSC$W LENGTH] ; ; 
95 RAB CRABSL_PBF] = .PROMPT“STRING CDSCSA~POINTER } ; : 
38 iy END; : 
38 ye RAB prt reetg = MINU (255, .PROMPT_STRING_LEN); 
7 RAB CRABSV-PMTJ = 1; 
600 74 END; 
601 75 
o0e 7 '¢ 
60 ! Input the string as a single record 
604 ' Return RMS error status if not RECORD TOO BIG or RECORD STREAM ACTIVE. 


: On record stream active, wait and try again. 
GET_STATUS = SGET (RAB = RAB); 
IF NOT .GET_STATUS 
THEN 


Sse 
oo 
S233 
oo 
(O2 C9 Cd Cd Cd Co CD CD 
CoCece Co“ 
Wwr—OoOe 


rs 


tH 


BEGIN 
atta | ts CRABSL_STS] EQL RMS$_RSA) DO 


SWAIT (RAB = RAB); 
A aa = $GET (RAB = RAB); 


4 
4 
4 
4 
4 
4 
4 
4 
END; 
END; 
: Nov ing read the record, we now have to worry about the semantics of 
STRING 


Sa kd tt dd 
a 
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GET ‘ 

If GET_STRING has fixed-length semantics, we must blank fill the tail 
énd of the buffer that RMS didn't fill. 

If GET_STRING has Gynanic semantics, the input got read into an area 
on the stack. or in the user's buffer) and needs to be copied 
° ‘ 

If GET_STRING has varying string semantics we need to adjust the 
CURLEN field to reflect how many bytes it really contains. 


CASE .GET_ STRING CDSC$B_CLASS) 
cee DSCSR_CLASS_Z TO DSCSK_CLASS_SB OF 


'¢ 

: Classes with fixed-length string semantics 
COSCSK_CLASS_Z, ' Unspecified 
_CLASS_S Scalar 
_CLASS_A Array 

Scaled decimal 


Non-contigious array 


BIE 


PAEAAAAAAAAAAAAAAAAAAAAAAAAA AAO 


w 


DSC 
DSC 
DSC 
DSC 
DSC 
DSC 


A, 
K ~5B): ! String with bounds 
BEG N ! fixed Length processing 


FFTF 


Wwr—Ood0 


eer rr Dh eae — — co 


Waa Eee 1:08:48 HMMSHH OLEH Tbahtife7Ab. eet 


: 4 1 ! Because we opened the file in MOVE mode and used t | 
3 5 i caller's str ng as 4 UBF, we need only blank Ay the 
; on8 :] i area beyond the str the actual data has been 
; 64 9 i moved into the front 6) the user's string by RMS. 
; £05 9 : CHSFILL (sc' 
: 650 924 .GET_STRING_LEN = .RAB ERaaSy- Rsz] 
; 651 925 -GET“STRING-ADDR + .RAB CRABSW-RSZJ5; 
; 6 § § RET_STATUS = T; ' TS denote copy success 
: $2? i END; ! fixed Length processing 
tie ee 
; 637 931 1 Classes with varying string semantics 
: 659 9 ; toscsx CLASS -VS): : Yerying string 
; 660 09 N a "gate ngch processing 
; 661 0935 (.GET _STRING’ cbse A_POINTER])<0,16> = stare CRABSW_RSZ) ; 
3 o36 09 § ! CURLEN <= bytes gotten 
; 66 09 RET STATUS = 21; ! To tenes copy success 
> 664 0938 END } varying Length processing 
; 665 0939 
Be . 
: 668 094 i Classes with Gyrante string semantics 
3; 669 094 i Even if we had read into the user's buffer, we still must 
: om See } _ensure that the length is correct. 
: 67 946 toscsx CLASS _D}: dy namic string 
3; Of 94 on th orece 
: 67% 948 RET_STATUS = 1 feeeess, ‘2 "8x6 CRAB Bing 
; of? bap 2 If .GET eSTRING. CEN LSSU K_DYN_STR_MAX 
; ei? 3 4 on DYNAMIC_STR_BUF 
: 679 93 .GET_STRING_ADDR), 
; 680 3338 -GET_STRING)~ 
3 ret Ree END; ! dynamic Length processing 
; rey $339 CINRANGE, OUTRANGE): ' Should never take this path since 
3: 684 0958 : ° bad descriptor class code should 
; 685 Beep ! have fed to caught the first time 
3 es 44 and addr d to get GET_STRING's length 
; 96¢ RETURN (LIBS_FATERRLIB) ; 
; on 1. TES; 
: 691 965 i af requested, tell the caller the number of bytes actually returned, 
; O36 ¢ i not counting blank padding, if any. 
: 88z ae 
> 695 369 IF ( NOT NULLPARAMETER (3)) 
3 696 ? THEN OUTLEN (CO) = MINU (.RAB CRABSW_RSZ), .GET_STRING_LEN); 
8 He, 
: § j Boture proper status code. 
: 700 974 
| 


9 
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; 701 975 

3 ¢ ats If .GET_STATUS EQLU RMS$_RTB ! Record too big 
a: 97 THEN 

ee 44 RETURN (LIBS_INPSTRTRU) 

; f 5 444 FUSE IF NOT .GET_STATUS 

3; 981 RETURN. .GET_STATUS 

; 708 9 ¢ ELSE IF NOT .RET_STATUS 

; 709 9 THEN 

; 710 984 RETURN .RET_STATUS 

3 ay 03 5 ELSE RETURN SS$_NORMAL; 

; ag 389 END; ! End of routine DO_GET 


-EXTRN SYSSOPEN, SYSSCONNECT 
~EXTRN SYSSGET, SYSS$WAIT 


OFFC 00000 DO_GET: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 0633 
58 900000006 00 9E 00002 MOVAB SYS$GET. Ri : 
5a 000000006 00 9€ 00009 MOVAB LIBSANALYZE_SDESC_R2, R10 : 
SE FE6C CE 4: 0010 MOVAB -404(SP), SP : 

10 BC B5 00015 TSTW GET_ISI + 0745 
63 12 00018 BNEQ : 

0050 «8F 00 6E . 00 2c O01, MOVCS #0, (SP), #0, #80, S$RMS_PTR + 0755 
BO AD 50p3 BF BO 00023 MOVW #20483, S$RMS_PTR : 
C6 AD 08 90 00029 MOVB #2, $RMS_PTRT22 : 
CF AD 02 90 00020 MOVB #2, $RMS-PTR+31 : 
DC AD 18 AC DO 00031 MOVL  DEVICE_NAME, SRMS_PTR+44 : 
E46 AD 14 AC 90 00 MOVE = DEVICETNAME._LEN, SRMS_PTR+52 : 

BO AD 9F 000 PUSHAB FAB + 0761 
000000006 00 gi FB 0 ; CALLS #1, SYSSOPEN ; 
59 0 DO 0004 MOVL RO. RET STATUS : 

24 59 E9 048 BLBC RET _STATUS : 0767 

0044 8F 00 6E te: 00 C 2038 MOVCS #0,~(SP), #0, #68, SRMS_PTR : 0769 
FF6C CD 4401 8F 80 005 MOVW #17409, S$RMS_PTR : 
AS AD BO AD 9E 909¢ MOVAB FAB, SRMS_PTR+60 ; 

FF6C «CD «OF 00061 PUSHAB : 0770 
000000006 90 gi FR 00065 CALLS #1, SYSSCONNECT F 
9 0 006C MOVL RO, RET STATUS : 

03 0138 5 OO6F 1$ BLBS RET_STATUS, 2$ : 0776 

10 BC FF6E cD 8 a075 2$ MOVW § RAB+2, @GET_ISI : 0778 

f 7B BRB > 074 

0044 &8F 00 6E si 00 2c 6 i 3$ MOVCS #0, (SP), #0, #68, SRMS_PTR : 0788 
FF6C C 4401 $F 80 087 MOVW #17409, S$RMS_PTR F 
AS AD BO AD 0 MOVAB FAB, SRMS_PTR+60 ; 

FFOE cD 10 BC B 9 MOVW  aGET_ISI, RAB+ : 0789 

6 04 AC p 99 4$: VL ET STRING, R6 : 0799 
02 03 AB 91 % CMPB (RB), W2 ; 
OF 1 A BLEQU : 

50 6 D A3 MOVL 6, RO : 0803 
6A 1 Ab JSB LIBSANALYZE_SDESC_R2 : 


omBtrrmaw 


eee eee ae ee ee ee ee ee — 


0100 


90 
8C 


9C 


9C 
OOF F 


FFaS 


000182DA 


000000006 
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FF74 
FF6C 
FF6C 
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» Rb 
Pe GET_STRING_LEN 
REf_STATUS, 6 


(R6), GET STRING_LEN 


(R65, GET_STRING_ADDR 
(R6), # 


T_STRING_LEN, #256 


#256, GET_STRING_LEN 
YNAMIC STR_BUF, GET_STRING_ADDR 
R6), #11 


), GET_STRING_LEN 
STRING_ADDR, RAB+36 
STRING_LEN, “RAB+32 


. 


DOPRMPSPRKVAAO 
= “ 


Ws 
we 


PT_STRING, R3 
» #2 


R3, RO 

L BSANALYZE_SDESC_R2 

R2, RAB+4 

REf_STATUS, 10$ 

(R3), PROMPT _STRING_LEN 


4(R35, RAB+ 
PROMPT STRING_LEN, RO 
RO, #25 


SYSSWAIT 


SYSSGET 
ET_STATUS 


#0, #15 
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IBSGET_INPUT 16-Sep-1984 01:00: AX-11 Bliss-32 V4.0-74 Page 19 

Bree 1ersee= ike P3:98:88 | Heat Oh EST Pact tite bSo.1 ve Of 
; 16$-15$,- ; : 
193-188. 
193-1 7 : 3 
188-1 - : : 
16$-15$.- : ; 
16$-15$.- : ; 
193-188" 
50 000000006 00 9 0174 16$: MOVAB LIBS_FATERRLIB, RO + 0962 ; 
0 8E A ic 17C 17$:  MOVZWL RAB+34, RO + 0924 : 
1 2 § 1 MOVZWL GET _STRING_LEN, R1 : ; 
51 0 : 1 SUBL2  RO,"R1 : ; 
V ; , #32, R1, _STRING_A : ’ 
51 20 6E 6008 C 4 MOVCS #0. (SP), #32, R1, (RO)CGET_STRING ADDR 0925 ; 
05 11 4 D BRB 19$ + 0926 ; 
04 86 8E AD BO OO18F 18$:  MOVW  RAB+34, @4(R6) + 0935 : 
59 1 00 00194 198:  MOVL #1, RET_STATUS ; 0937 ; 
3 11 00197 BRB 23$ + 0904 ; 
0100 8F B1 0199 20$: CMPW GET_STRING_LEN, #256 + 0949 ; 
08 1€ 0019 BGEQU 21$ : ; 
52 6 3 1A MOVAB DYNAMIC_STR_BUF, R2 : ; 
51 52 CO OO1A MOVL Re R1 : ; 
11 1A BRB 22$ ; : 
51 4 pO 001 Z18: MOVL  GET_STRING_ADDR, R1 : 0953 : 
3 56 pO OO1AB 22$:  MOVL R6,°R + 0948 : 
5 8E AD 3C OO1A MOVZWL RAB+34, RO : ; 
000000006 99 16 018 JSB LIBSSCOPY_R_DX6 3 F 
59 D0 001 MOVL RO, RET_STATUS : ; 
03 6c 91 0188 23$ CMPB «CC AP),, #3 + 0969 : 
15 1F 0018 BLSSU _25$ : ; 
oc A D3 O1C TSTL ECAP) : : 
160 13 001C EQL 4=s«25$ : ; 
50 8E AD 3C 001C MOVZWL RAB+34, RO > 0970 ; 
50 57 B1 001C9 CMPW  GET_STRING_LEN, RO : : 
03 1E O01CC BGEQU 24$ : ; 
50 3¢ 1CE MOVZWL GET_STRING LEN, RO : ; 
0c BC 3 BO 00101 gus: MOVW RO, “@OUTLE : ; 
000181A8 8F D1 0105 5$: cMPL get STATUS, #98728 ; 0976 3 
50 000000006 8 3E 10g MOVAB LIBS_INPSTRTRU, RO : 978 ; 
4 E8 OO1E6 26$:  BLBS  GET_STATUS, 278 : : 
0 § 60 169 MOVL GET“STATUS, RO : 0981 ; 
4 59 Es 1E 37: BLBS RET_STATUS, 29$ : 0982 : 
0 59 BO F 8S: MOVE RET“STATUS, RO + 0984 : 
50 01 DO OO1F4 298: MOVL #1, RO : 0985 : 
Be 17 RET : 0987 : 
3; Routine Size: ytes, outine Base: _L + 3 
Routine $i 504 b Routine B IBSCODE + 0088 
; 714 9443 1 END 'End of module LIBSGET_INPUT : 
> 715 989 1 ; 


9 
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716 0990 0 ELUDOM 
PSECT SUMMARY | 

Name Bytes Attributes 
_LIBSDATA NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Pig At Ents} 
_LIBSCODE 640 NOVEC.NOWRT, RD. EXE, SHR, LCL. REL. CON, PIC-ALIGN(2) 

Library Statistics 
eoeecese Symbols -------- Pages Processing 

File Total Loaded Percent Mapped Time 

_$255$DUA28: CSYSLIBISTARLET.L32;1 9776 87 0 581 00:00.8 


COMMAND QUALIFIERS 
PLISS/CHECK=CFIELD. INITIAL .OPTINIZE) /MOTRACE/LIS=L 1S8:1 1OGET INP/OB)=08.)8 31. 186ET IMP MSRC$:LIBGETINP/UPDATE=(ENH$:LIBGETINP 


Size 616 code + 28 data bytes 
hy Time 711.7 

Elapsed fines 241.5 

Line Os /CPU Min 089 

gene enes/CPU-Rin: Ft 8 
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